Sub ImportPlanetarySystemsFile()

    Dim str1 As String

    Dim str2 As String

    

    str1 = "C:\LunarSociety\PlanetarySystems.xml"

    str2 = "ADOPlanetarySystems"

    Call ImportADOXML(str1, str2)

        

End Sub
